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RpSLe ACT 
Since the price of personal computers is coming down, it 
is possible to have computers ina small ship that has a 
limited budget. The commanding officer of a small ship 
ne2ds a support systems for making decisions in amphibious 
operations. A personal computer would be helpful in saving 
time manipulating the infocmation used to make decisions in 


amphibious operations. 


The area to he investigated is the approach to the sys- 
tems analysis and design of the amphibious operation cont- 
roller and simulation program in ship-to-shore phase. We use 
the computer to control the waves of small boats that carry 


em@eeclLcCOops to shcre. 
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Aw AMPHIBIOUS OPERATIONS 


MmrewertG Wat li, at Normandy on of the French coast, 
132,715 troops were landed in sixtesn hours on 6 June 1944 
against scme of the nost sophisticated shore defences then 
known. At Okinawa, an island about 600 miles south of Japan, 
over 183,000 men in 1,300 vessels maia the last a succession 
of major landings by United State amphibious force agains= 


determined Japanese defeniars in April 1945. 


Amphibious warfare integrates virtually all types of 
Siaps, aixcrcraft, weapons and landing forces in a concertad 


Meret aty effort against 2 hostile force.The salient require- 


(D 


Ment of the amphibious operation is the necessity of builid- 


seat 
H = 


Raceel Zero capability 


{> 


ing ud combat pcwer ashor2 from an 


Bemeeuily coordinated striking power as the attack drives to- 


oO 


Ward the final objectives. The amphibious assault must be 
Memeo ted 2% the face of certain additional difficulties. 


Natural forces such as unfavorabie weatner, seas, suri, and 





features of hydtrography r2apresent hazards not normally en- 
countered in land warfare. Technical problems of logistics 
include loading thousands of troops and large quantities of 
material into ships at widely separated embarkation points, 
moving them to the objective, and then Landing them in ex- 
actly the proper sequence. Usuaily on open beaches or land- 
ing zones and under fire initially. All this requires ex- 
traordinaery attention in the form of detailed planning. 
During the movement from ship-to-shores, troops are especial- 
ly vulnerable. Possible employment of mass destruction weap- 
ons by the enemy 1S a “threat to the amphibious task force, 
as to any other cfiensive concentration and raquires the 


ye and 


exercise of effective countermeasures, bot tusaic= 


passive, during the stages of the operation. 


An amphibious operation is an attack launched fron 
the sea by naval and ianding forces embarked in ship ofr 


Memet 2t2VOlYing a landing on a hostile shore. I+ aormally 


tr} 


Memageres extensive air participation and is characterized by 


Onceses -s4aned, Orgenizeda and 


ti, 


Smesely int 


(D 


grated errorts of 


eammeeped ror different combatant function. 
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3. Purpose 


Amphibious operations are conducted primarily to 
establish a landing force on a hostile shore in order to; 

(1) Prosecute further combat operations 

(2) Obtain a site for an advanced naval or airbase; 
and 

(3) Deny the use 9f an are2 of facilities to the 


enemy. 


4. Sequence 


The amphibious assault follows a well defined pat- 
tern. It includes a sequence of events or activities, which 


of amphi- 


ct 
oO 


S 


7) 


Meeur, alitnough to a lesser degres, in other ty 
bious operations. The general sequnce consists of planning 
emparkation, rehearsal, movement to the objective, and fi- 
Maliy assault and capture sf tne objective. Planning, for 


example, olole hans Seaoug NOU 2 cn 


jte 
rf 
(D 


operation but is 


= 
he 


17) 
+o] 


Memereaht oniy in the veriod vricr to embarkation. 


The planning phase denotes the period extending from 


ct 
He 
iD 


m@etesance Of =he initiating dlitective <=o0 embarkation. 


iE 





During this phase, the necessary preparatory measures, in- 
cluding coordinate planniag are effected. Although planning 
does not cease with the termination of this phase, Ee is 
useful to distinguish between the planning phase and ths 
Subsequent operational phase, since a marked change occurs 
in the relationship between the commanders of the various 
service components at the time ths planning phase is termi- 
nated and the operational phases beqin. At the commencement 
of the operational phases, the comnander of tne amphibious 
task force assumes full responsibility Ior the entire force 


and for the operation. 


6. Embarkat 


ae 


n 


Eee Peat Od Gur nd wWhech =he 


OF 


The embarkation vhase i 


ssigned 


Ay) 


forces, with the equipment and supplies, embark in 


ei poping. 


7. Rehearsal 


The rehearsal phase is the pariod during which the 
Preaspecti ve operation is rehearsed for the purpose or: 

(1). Testing the adequacy of plans, timing of de- 
Bemled cpe@rations, and he combat-rsadiness of participating 


trorces; 


ike 





(eee @eclnang that all echelons are familiar with 
plans; and 


(3). testing commun ications. 


8. Movement 





In this vhase, th2 components of the amphibicus task 
force move from the points of embarkation to the objective 
area. This move may be via tehearsal, staging, and/or ren- 
dezvous areas. The movement phase is completed when <t«he 
components of the amphibious task force arrive in «heir 


assigned position in the objective area. 


9. Assaul+ 


The assault comprises the period between the arrival 
or che major assault forc2s of the amphibious task force in 
tha objective area and the accomplishment of the aaphibious 
task force missicn. Development of the area for its ultimate 


us? may be initiated during this period. 


Nosauie Coemetions by the landing force begin with 
the ship-to-shore movement and the landing of the first 


schedule wave, and terminate with the capture of <cne final 


3 





ground objectives of the landing force. Other forces contin-~ 
ue to provide legistic and fire support during the assaul+ 
operation of the landing ferce and continue to provide 


over-ali protection of th2 amphibious task force. 


Be. SHIP-TO-SHORE MOVEMENT 


1. General 


= SE 





Ae The ship-to-shore movement is that part of the 

assault phase which pertains to the timely deployment of 
roops and thelr equipment from assault shipoing to desig- 
nated positions ashore in the landing area. More preciseiy, 
this movement 1s designed to ensure the landing of troops, 
equipment, and supplies at the prescribed times and places 
amd in tne information required by the ianding forces plan 
of maneuver for operations ashore. The movement may be exe- 


cuted by waterprone means ( Landing 


i 


Nip, Landing craft, and 
mes OLOUS vihicles), by helicopters, or by a combination of 
mais <WO. 

Rie Although the Ship-to-shore movement is only a 
part or the assault phase, it is the most critical part. The 


Mercevenen= of the requisits coordination and control of the 


ey) 


Many diversified naval and troop alements participating in 


it 
Roa 
@ 
7) 


hip-to-shore movement imposes tasks which are un- 
Banalileled in scope by anyoense Nniteitary wopesacion in 


modern warfare. Soep-2<O-ShoOte =MOVement vDilanning reflects 


14 





tO a preeminent degree the requirement for concurrent and 
parallel pianning at all naval and troop echelons. The land- 
ing plan, consisting of a variety of documents, must leave 
no dcubt as to what is intended. Whereas, generally in mili- 
tary operations, subbordinate commmanders are only told what 
Bemd@@y, there is, in the Ship-to shore movement and equally 


et sige 


fas 


compelling requirement to spall out many of the 
concernning how the operation will be accomplished. 

c. The ship-to-shore movement may encompass any or 
all of the following operations: 

(1) Assembly of landing ship, landing craft, amvhi- 
bious vehicles and helicopters in required EOLMaeaen fez 
Gebarkation and landing. 

(2) Debarkation of troops, 2quipment, and supplies 
rrom ship into afpropriate ship-to-shore novemant means; 

(3) Transfer operations 

and, 

(4) Controlled landing of the assault echelons of 
meee landing force to includes :quipment and supplies. 

d. The shiv-to-shore movement commences on order of 


the amphibious task force commander after consultation with 


ct 
ro 
() 


landing force commani2r. The novement is brought +o a 
close wnen all of the troops, equipment, and supplies loaded 
in assauit shipping have ianded. 


e.The shin-to-shore movement is divided into two 


PS 





(1) The initial unloading period which is primarily 
‘tactical in character with emphasis on responsiveness to 
landing force requirements ashore. I* is during this period 
of the ship-to-shore movement that the landing force is 
graining its foothold ashore, and the unloading and landing 
of essential men, equipment, and supplies is very selective. 

(2) The general unloading period, which is primarily 
logistical in character, 2mphasizes to the delivery of quan- 
tity in the shortest time possible. Although the aim shifts 
to volume and speed rather than selectivity, the unloading 
and landing operation should never exceed the capability of 
logistic oferations ashore +to handle that which is 


delivered. 


C. CONTROL OF SHIP-TO-SHORE MOVEMENT 


1, Gen 


{ch 


merolil 


Control cf the shivo-t0o-shor= movement directly or 
indirectly, involves the »rganization of the sea area, thea 
establishment of a number of control agencies, and the enm- 
pPioyment of varicus centrol tecnnidques and devices. The num- 
ber and arrangement of beaches and the corresponding types 
of mcevement alsc play a part in the controi system to be 


Esteblished for a particular operation. 


ie 





2. Area Organization £ 
For a discussion of the 
mieees entirety. Organization 
close <c the shore for 


ment involves 

discussed below. 
(1) 

hating line, 


from which the successive waves 


execution of 


Certea-n CCOLG2 13a tion 


Tie Line Of tepart 


approximately parallel to the 


Organization of the sea area 


or the sea operation are2a 


the ship-to-shore move- 
and control devices 


as 


ure is an off-shore coordi-~ 


landing beach, 


of boats are dispatched for 


their final movement to tha beach. If beaches are separated, 


each beach has its own line of departure, 


a ship or ships cf the control organization. 


an fin= of as 


iD 


departure 


Mmeeseographic, and tactical consi 


Boat lanes 2x tend 


(2) 
The 


Seetne iine of depacsture. 


determined by ths Length of 
Approach 


= 


pepage ti 


'b 
}-4 
j- 
ae 
10) 


uu or departure 


may pe terminated by marker ships, 


approach lanes may be parallel or 


provide ror early dispersion of 


(4) eet one algal, 


mnacn a=~e stationed a designated 


Nes 


coma Td 


dump area 


which is marked by 


Mie 7 eOecak2On Oe 
governed py topographic, 


desec2 ons. 
Seaward from landing beaches 


the boat ianes LS 


th 


e) 


a 
H ée 
fs 
cr 
rr 


coresvonding beaches. 


Vv) 


extensions of boat lanes 


whe transporc ares. They 


Boaes, CL 2OuyS, AdjeCene 


may diverge to seaward <9 
the waves of bcats. 
off-shore area in 


MMos OL Land. yo Cloart 





amphibious vehicles, loaded with supplies tc meet early de- 
mands of «he trocps ashore. A ‘floating dump area should be 
Meeeatea if the vicinity of the line of departure, with due 
regard for adequate dispersion and ease in control. 

(5) Special unloading berths into which transports 
may move for unloading ar2 established in the vicinity of 
the approach lanes. This result in reduction of the running 
mame of janding craft and amphibious vehicles and assists in 
«he dispersion of transports. 

(6) A casualty evacation control berth is estab- 
lished for a ship which nay be specially equiped for han- 
G@gpng Casualties. Usualiy this is a landing ship in which a 
casualty evacuation control officer is embarked. Normally 
Ome berth is alictted t9 each beach. A barth is established 
+o serve one or more jlaniing beach2s, depending upon the 
Peoxw meaty of landing beaches, and is lecated as close to the 

be 


in 
mit. 


Beach as conditicn 


(7) The transfer area is a designated ares to sea- 
Wee OL the surfiine, off a landing beach, where pezsornel 


Bee Material are trasfered from landing craft t9 amphibious 
MemecicS. Lt £S sstablished wher <roop plans, ‘t¢rrain, ofr 
meme cgreaphic condition dictate. 

(8) A transfer berth is located of€ a landing beach 
in the proximity of the transfer lane. A crane-equipped ship 


mma Datge 15 Stationed hare to transfer +roo0s, supiies, 


mn 


Piaeequrpment £rem Landing craft to amphibious vehicies 


ies. 





(9) The amphibious vehicle launching area is a de- 
signated area located in the near vitinity and to seaward of 
thes line of departure. The ships carrying amphibious vehi- 
cles move into this area to unloaded them. The area is so 
located in relation tc the line of iepar*ure as to ensure a 
minimum amount of maneuver and sea area transits by the 
amphibious vehicles prior to crossing the line of departure. 

(10) The causeway lanching area is an area located 
near the line of departure but normally clear cf ‘the ap- 
proach lanes, where ships oo launch pontoon causeways. This 
area is so located that the causeway can be launched ina 
minimum amount of time and with least interference from oth- 
er unit opezatinc in the immediazte area. Causeways are lo- 
cated adjacent te but not in boat lanes, usually toward the 


fiank of «he beach. 


sh, 








A. AMPHIBIOUS OPERATION 


Tne purpose of this study is to simulate the control of 
amphibious operation in the ship-to-Shore-movement ovohase. 
The probiem is how to get the landing force to the shote on 
time. The time here is defined in term of D-Day, H-Hour, M- 
Minute, which means that at the date of D-Day the time of 
H-Hour and M-Minute, the landing force will do the amphibi- 
ous cperation. They reach the shore by that time, not before 
Cr arter. In order that landin groups reach the shore on 
time, «he course and speed of the landing groups have been 
Previousiy defined. Usually, the course is perpendicular to 
tne shore andthe speed is usually 70%-80% of the maxinun 
Seed Of the landing craft. The laniing groups are parts of 
the whole landing force. The landing groups are also divided 
“ntc waves when landing which are controllsd by wave guide 
commander. Those wave guids commanders are controlled by the 
Semrcrol Ship. Since the control ship may be destroyed at any 
mome. i1t is therefore, reasonable to have 2 control ships 
Seed the Primary Control Ship (PCS) and the Secondary Con- 
Meol Ship (SCS) both Ships can keep track of the movement of 


Wave Guide Commander (WGC), but the Primary Control Shi 


oO 


t by 
ar 


(PCS) controls the Wave Guide Commander (WSC). I sg 


it) 





Primary Ccentrol Ship (PCS) is destroyed, the Secondary Con- 
trol Ship will take over the control. The Primary Control 
Ship (PCS) and Seconary Control Ship are usually anchored 
2,900 yards away from the shore at the other side of che 
boat lanes. The boat ianes are the path of the waves. The 
width of the lanes is about 400 yards the course is the wave 
course and the length is the distance between the shore and 
control ships, usually 2,900 yards. The line drawn between 
eaemrrimary Control Ship (PCS) ani Seconary Contzrol Ship 


would be across the boat lane and parallel +9 the shore. 


(D 


This lire is called Line of Departure (LOD). By using th 


wave's speed, we can compute the time the wave was at th 


(D 


Line of Departure (LoD). 


aE ee 
iZ30 1236 


6 MINUTES | 
SPEED 10 KNOTS : 


_ 
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Figure 2.1 Compute time 





For example, i£ the boat's lane's length = 2,000 yards wave 
speed = 10 knots, H-Hour = 12, M-Minute =30. It would take 
2000*60/7(10*2000) = 6 minutes (1 mile = 2,000 yards) for the 
wave to reach the shore. Therefore, that the time to pass 
Line of Departure (LoD) would be 12:24. 

Five minutes before *the time to pass Line of Departure 
(ep, the Primary Control Ship (PTS) raises a Zero flag in 
order for the waves to proceed to the Line of Departure 
(EeD). At the time to pass Line of Departure (LOD) of 
12:24, as the example abov2, the Primary Control Ship (PCS) 
haults down the flag while the waves forward to the shore it 
Will report the grid position every minute. The grid posi- 
tion is based on whether the Wave Guide Commander (WGC) is 
in the middle left or right side of the boat lane. We divide 
tha boat lane into 5 regions, Hence the boat lane that is 
Meemeyesas wide, O- 50 yards from left is labeled "LL", 
50-100 yards from ieft is labeled "L", 100- 200 from left is 
fee led "CC", O-50 from right is labeled "RR", 50-100 fron 
right is labeled "R". Ths report iacludes whether the Wave 


Guide Commander (WGC) is early , late, or on time. If it is 


(v 


early, <=he wave snould dasrease the speed. When the waves 
reach the shore she Wave Guide Commander (WGC) Tol). TepOsSe< 
Memcne Primery Centrol Ship {PCS) "touch down" at which time 


Sie PoiMery Control Ship (PCS) will ro longer control the 


Wave. 
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Be. SYSTEM DESIGN 


According to the characteristic of computer used in this 
study, we have to built our own characters when w2 use the 
high resolution mode. The characters have been previcusly 
designed. Each character occupies 5 bytes of memory. From 
the program listing, each of the data statements contains 
the data for one character. The line number of the statement 
Minus 2,200 is the ASCII code value for the character. Zach 
character is defined by 5*7 array of voints. faci POLNnt in 
the array is translated into the paper bit pattern, and the 


resulting numbers aze placed in the data statement. 


+3 
(D 


h 
[re ere then stored inememory from location 31647 by 


miecouLine SET CHARACTER. 





This routine is used t> print the character at the posi- 


mom ZA, 2Y where ZX is 256 horizontal does on the screen 


mem this routine is called. ZZ3 is the passing parameter, 
Meas the character we want <tc be printed. The function 
hee (223) ill return ASCII value t9 ZC. The statement 2Z = 


ZC¥54#31647 will assign th2 table pointer value to ZL. 2ZQ is 
Mieevaeriable pointer of an arzay A. Yhis allows the charac- 
ter data to be stored in variable A. A, then, will be SDT 


maa Specific iocation on the screen specified by ZX, 2Y. 


Ze 








2. Subroutine Print Message 


we SEE et BG et ee 2 ee a SE =» 


Pies LOuUtAne iS used to print a string of characters on 
screen. the first character will be at location specified 
by ZX and ZY. This will be accomplished by moving the conse- 
cutive character into 7225 and then call PRINT “CHARACTER 


moutine. 


3. Subroutine Numeric IDs jejbloe 


This routine work lika INPUT statement in BASIC, but the 
prompt message can be located by ZX and ZY. This pebrine 
Monae weiting for the input, will keep on reading the time 
meome the real tite clock. It also checks input data, if the 


Mee Gata is not numeric {ASCII<48 or O57 in decimal or 


$30-$39 in hexadecimai). 


4. Subroutiz 


18) 


SSt C 


Thais routine reads the e€hararctez data Erom the pro- 
Gram anc place it ir the physical memory lecation from the 
Meee s= 37047 <tc the zdaress 32125 which is the highest 


MeeaciOon for 32K computer. 
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5. Subroutine Plet Grid 





This routine is to plot the boat lanes grid on the screen 
by using 10 yards:1 dot on the screen the first do loop is 
eemaraw G horizontal line which are LL, L, C, R, RR regions. 
The next DO loop draws vertical distance scale from 0 to 
24000 yards for every 200 yards. Label numbers are in hun- 
@eeaq of yards. The sign * " is the Location of Primary Con- 
trol Ship (PCS) specified by PX and PY which are tne input 
offset values f£rem the INPUT routine. The rest of this rout- 
iné prints all the labels such as "SHORE" draws arrow, print 


Gewcce etc... 


oe SubEoOut i pe 


{t3 


ime Sc2 


ie 


In order to plot the time scal2 on boat lanes in every 
Minute, we have to know the speed, then convert it to dis- 


tance every minute and than draw 43 correspond line on the 


screen 
SSC = number of dots on th2 screen (10 yards per dot) 
SC = SP*2000/(69*60) yards /séc 


=SP*2000 (60*60) dots/sac 
=SP*2000*20/ (60*60*10) dots for every 20 seconds 


A DO lcop is used to label the time scale every ninuce. 





7. Subroutine Wave Position 


This routine is the routine which interacts with the 
user. We have tc make sure that error will not occur. This 
routine will ask the user te reinput the data if the data 
fails certain test. This routine will get the input bearing 
and range first. GoW get bearing by printing the "?" 
after the word "kearing"., The input bearing will be assigned 
+0 variable BR first, while loop check if the input bearing 
memmepetween © and 360. If it is not, then this routine will 
keep on asking for the input. After the computer gets thea 
correct bearing, thew Well be printed arter the word 
"RANGE" the user is supposed to input range of the wave 
@meede from <he Primary Control Ship (PCS). Again this rout- 
ine will check the user input numeric data. Only after the 
computer gets the correct input. The true bearing will be 
computed by usingthe equation 

WH= (BR-cO) /180* 3. 141592654 
AX=INT (PX-2G/10 *COS (WH) ) 
WY=int (PY-rgq/j) *SIN (WH) ) 
To change bearing and range respect to of~set to dot 
pesition on the screen. This routine elise provides the me- 


Smae2sm that allcw us not to plot out off screen edge. For 


= | 


Meet irst input a dot (position of wave ) will pe piloted on 


the screen using the command PRESET (WX,NY) (since the screen 





eemustially SET by the command PCLS1 ). After the first in- 
put, the output position will be liaed to the previous one. 
The position is marked by the "<" sign in the GET and PUT 
command. The GET command will get 2very thing at position. 
The "<" will be printed (the area cover 5*8 dots) and will 
be PUT back late1 after th? computer compute a new position 
and then GET the data from the new position before printing 


"<t and sO on. 


This routine 1S to print Hour minute and second of the 
present time. This routine wili bea called once after Each 


input. Therefore, the time output is latched. 


9. Subroutine Read Time 


While waiting for bearing and range to bé inputs, this 
routine will be called rapeatedly, together with polling 
Pee pedrd in order to updete the time variable TH,TM,TS (note 
Seer tne rcreai-time-clock is still cunning ali the ‘time by 


using 1/60 second hardware interrupt). 


ak 
Oo 
r 
top) 
Ic 
lox 
(4 
O 
on 
{it 
ti. 
(ts 
(\D 
(tes 
4 
jO 
4 
A 
eu 
jo 
lio 


This routine only handles error messages. 





mi. SUDrOUtIne Error Ha 


This routine outputs the error mneaasges into error nes- 
Sage area on the screen when this routine is called only the 


number of error message is passed. 


1) 
© 
rw 
th 
rh 
(D 
ry 
D 
73 
Q 
M 


12. Subroutine Comput2 Tin 


TU is the time taken to reach the shore at speed SP. 
TU=WX* 10*60/ (20 00*SP) 
=WX*.3/SP 

TP is the planned time in minute, if TP= 4 means by the 
Sschdule, we have 4 minutes to reach the shore and if TU=2, 
means it would take only 2 minute +9 reach the shore, 1£f we 
retain the same speed, another word we can say is that wa 
are 4-2 =2 minutes earlier than we have planned. This is how 
we can determine if we are early, late, or on time. Hence it 
takes about 1 or 2 séconds to print a nessage. If the mes- 
sage is the same aS the last time we have printed or the 
screen, we don't have to put it again on the screen the mes- 
memes wiil Stay latch until we print blanks over chen. TD? 


handle this we use TTS to be the value of the last message. 
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This routine use normal screen (alphanumeric mode) to 
input, in order to minimize the number of statements. This 
routine input H-Hour (HH), 4-Minute,time in hour(TH) time in 
Minute (TM), course of wave (ZO), speed of wave (SP) and 
also set real-tise-clock, each of the input is also checked 


for validation. 


14. Subroutine Grid Report 


This reutinée use the value of WY (wave position of Y- 
axis) and determine whether the WGC is in which ctegion by 
_emmeming che value of grid "LL","L", "Cc" "RYU WRINto grdS and 
we use GCS to stcre +he value of tha recommened vector, <sGs 
Seece the value of the last vector dutput. Li tae Curreat 

MectOr CUutpUt is the same as the last one, th2 output will 


not have to be printed again. 


This routine just echoes the input by using the high re- 
ution mode. The inputs echoed are wave speed H-Hour, 4- 


Menace, also prompt bearing, range, and display ail iabeis. 





16. ubroutine Offset 


This routine get the position of Primary Control 
Ship(PCS) by using the reference position ( the point on the 
lef= edge of boat lane intersected by the Line of Departure 
(LoD)) or column 200 row 172 on tne dhysical location on the 
screen. Pea oteewieeeeDe =Ve physical location of Primary 


Geattol Ship(PCS) on the screen. 


This routine just calls the lower level modules and 


a 


prompts the user if he wouid 13 


t+ 
rat 


SO seonuts nue. 
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TIT. USER'S MANUAL. 


A. SPECIFICATION. 


Mees program is designed to use with TRS 80 Color Cempu- 
ter 32 K bytes with Extended BASIC system. The program size 
is 11K bytes and need working area for at least 1 K bytes. 
Since the monitcr system cccupy 8 K bytes and we use 4 
gzaphic pages or 6 K bytes. Therefore this system consumes 
26 K (6+8+7+11) cf memory space. The nachine that has memory 


less than 32 K bytes is not recommene2d. 


Be USE OF THE PROGRAM. 


Maes PLOGzam is cn the cassett= tape which should be 
loaded with the CLOAD"AMPHI" command. When the program is 
already loaded, simply type RUN to run the program, ycu haves 
memwasrt for only a few seconds. You wiil be prompted for a 
Series of parameters as shown below. 

H- HOUR the hour, time when the landing force 


were at the shore. 


oe HOUR the present hour. 
eR aNUTE the minute, time when she landing force 


were at the shore. 
SET HOUR she present hour. 


eel MINUTE =he present minute. 


ek 





BOATLANE'S COURSE the course which the wave planed *o use 
usually perpendicular *o the shore. 

WAVE'S SPEED the speed which the wave planed to move. 

OFFSET BEARING the bearing from the planed PCS.location 
to the reai location. 

OF FSET RANGE the range from actual PCS. location to 
miecorctcal location. 

After you have answer all the questions, it will take a 


while to plot the grid and all labels as shown in Segue 361 
v @ 


WAVE'S SPEED#IS 10 WAVE'S COURSE IS 270 


H-HOUR IS 8 30) 

BEARING ? #~+———@ \_@ 
RANGE ? «—— 
TIME 3) 28,9)" 7 is ee 
GRID POSITION IS 


SIMULATION 
> <(mpr-<« 
@ 5 
2 4 6 8 10 12 14 16 18 20,22 24 
ap 


O i 2 3 < aa 







imo nN 


) @) @ & @ 


Figure 3.1 Displayed Grid 


Bez 





Die 
i. 
13. 


14, 


18. 
19. 
20. 


Zl. 


Mees goid is plotted the vertical line will »b 


Newer ic. 


Beno H=Hcur input. 

Echo wave's speed input. 

Echo wave's course inout. 
Bearing input area. 

Range input area. 

Display time. 

Control command area. 

Grid position display area. 
Distance from shore in hundred of yards. 
Wave's direction. 

Shore. 

SecomaeamyeCOntrol Ship (SCS). 
Line of Departure (LoD). 
Puaanasy.Gontr>ol Ship (PCS). 
Time's scale in minute. 

Error nessag2 display 3irea. 
Bee Se G2. O Ny 

BR Seg. one 

Cae 22 Ons 

L region. 


Lie 52 de. OTs 


Set eecopmOr the G=5id, Numbers indica 


ii 


Smee Trom the shore in hundreds of yards. The Line Of 


partzure 


will be at 2,000 yards from the shore or 
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The rendezvous area wiil be anywher2 beyond the 2,000-yard 
line. The label at the bottom is the time scale in minutes 
which corresponds to your input wave's speed. If the wave 
speed were 10 knets, the time required from the Line Of De- 
parture (LOD.) to the shore would be 6 minutes. When you 
see the "?" after the word "BEARING", then you can input 
bearing in degrees. The maximum input is 360, if you input 
the number larger than that an error message will be dis- 
played. After ycu have input bearing you will see the "?" 
again, after the word "RANGE",, You may input the range of 
the wave guide from Primary Control Ship (PCS). Usuaily, we 
can get the bearing and tange from RADAR. Within a second 


the screen will display time. The tims will stay latched un- 


til you input another bearing and range. You will see the 
voSiticn of the wave guide indicated by "<" sign anywhere on 
the boat lanes dépends on your inputs, the screen aiso dis- 


M@eays the grid position indicated by the letters C,L,LL,R&,RR 
memen Mean that cn the midile, on thea Lett, on the far lett, 


mimeecne r2aght, on the far fr: 


i 4 
WW 
a 
ct 
t{ 
1) 
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1 6 
mM 
Q 
ct 
} é 
s 
(D 
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xy 
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= 

oo 
th 


fae oric position is L, it means you are on the ieft side of 
boat lanes and a change of course +o the right. 

in this case, "VECTOR RIGHT 5" will be displayed as shewn in 
Byaure 3.2. The computer tells you the vector every tine 
Pemeare not at "Cc" position. If you stay at the far right 


pesition in "Li" the vacter to be recommened would 01ne 


«4 


eereertOR LEFT 10). The computer aisd cells you whether you 
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WAVE'S SPEED IS 10 WAVE'S COURSE IS 2/0 
H-HOUR IS~ 8 30 
BEARING 281 
RANGE 400 
TIME 8:27:45 tL MINSEALE 
GRID POSITION IS L 
PoC RO RIGHT 5 


4 


SHIP TO SHORE SIMULATION 


va 


2 4 6 8 10 12 14 16 18.20 22 24 





Figure 3.2 Simulation and Control Display 


ars on time or not. If you are lat2 or early the computer 
Will teli you how iate or early you ars. This message will 
be displayed after the grid position. For example, if you 
have 3 minutes to gét to the shore and you are at 1 minute 
line, the display would be 2 minutss early, you arte supp 

mo reduce the speed in ord=ritic get to the shore exactly on 
time. After your second bearing and range inputs, the output 
location of wave guide will pe linked to ‘the previous cne. 


Tharefore you can track th movement of «ne wave, ena- 


Oo 


i+ 


Meng you =o provide betzer decision making. 


oi 








WAVE'S SPEED IS 10 WAVE'S COURSE IS 270 
H-HOUR IS) 8 30 

BEARING 277 

RANGE 2100 

GeIOLIs SiesO3 47 WOURoEE ON “DIME 
GRID POSITION IS TOUCH DOWN 


mmyoLn 


SHIP TO SHORE SIMULATION 


2 4 6 8 10 12 14 16 18 20 22 24 
a ee 


pp 
@) 1 fl 3 4 5 


Figure 3.3 End of Control 


Finally when you reach the shors the ccmputer Wiad i2s= 
play "TOUCH DOWN", “the control is complete see Figure 3.3, 


and you are now ready to control another wave. 
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C. ERROR MESSAGES SUMMARY. 


There are 5 errors preduced by the program. 

1. OUT OF SCREEN error means the misposition of wave 
guide which the computer plots. Out of screen eror occurs 
when it is not within the computer's capability to provide 
output on screen. This error may result from the out-of- 
screen boundary data (the horizontal dot position greater 
feem 255 Or less than 0 or the virtical dot position greater 
than 191 or less than 0) or from wrong inputs, such as the 
range between the wave guide and CS is too long or bearing 
is in the wrong direction. 

2. TOO SWUALL VALUE results from inputs which are too 
small, ¢g. when the wave speed is lowar than 2 knots or when 
the input which should be positive turned to be negative. 

3. GREATER THAN 360 happens only when dealing with bear- 
ing input. Since bearing can be at its most at 360 degrees, 


Meateng input more than 360 degrees, this error will 


rt 


result. 

4. TOO LARGE VALUE results from inputs which are too 
large, eg. when we input time more than 23 hours, or 59 
Manutes; or when we input range mora than 9,999yards. 

ee <NVADLD INPUT results from wrong types o£ data, ég. 


alphabetical data is input in place sf numerical data. 


oe 





De. CONCLUSION. 


The ship-to-shore movement is that portion of the as- 
Sault phase which includes the employment of landing forces 
from the assault shipping to designates landing areas. [+ 
has aS its purpose the lanijiing of assault units at the prop- 
er times and places and in the formations required by «he 
landing force plan of maneuver ashore. It commences on ord- 


er of the amphibious task force commander and is brought to 


-- 


a ciose when unlcading of assault shipping is completed. 
In order to increase the ship-~to-shore movement control 
efficiency, including accuracy of tines and places, computer 
usage in controlling proves +o be very benefical. Normally 
ship-to-shore movement control is based on manual plotting. 
This process takes approximately 30 seconds to one minute, 
meem the time of receiving input, t9 the time of pictting 
the wave. The use of computer in control provides needed 
Outpu = within less than 5 seconds after the time of data in- 
put and control more boat lanes accurately in a few seconds. 
Meer szonally, the computer control system nay be used in 
oz~her phases of amphibious operation; eq. String Stopoue 
SyStem, renearsai vnase, 2tc. 

In the near future, hundreds of thousands of lives nay 
bé saved if computer control system replaces the nanual 


amphibious operation. 
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APPENDIX A 


ALGORITHM. 
(This program is to simulate the amphibious operation in 
Ship to shore movement phase) 
(varible declaration) 
aS = string buffer for display 
c$ = numeric input buffar 
gc$ = command used for control 


Gs = grid report buffer 


qS = quit command 

SH$ = output the word "shore" 

+$ = time report storages 

mem = Drevious time report output 


eS = character of a3 


bom = orfse+ bearing 

pr = bearing wave input 

ee = lenght cr c$ 

co = lain's course 

em = error nessage location 
aa = tlag of pesition plot 
@ee= Varible grid plot 

@o = h-hour 

2 = loop counter 

} = ioop counter 


Se, 





mm 
ph 
px 
PY 
qq 


tg 


ec 


tp 


th 


ts 
tu 
vx 
ey 
wh 
wx 
wy 


XV 


z/ 
Z3 


z9 


loop cowmter 

length of a$ 

m-minute 

Girection in degree 
Mermezontol axis of prs. 


Wertical axis of pcs. 


quit flag 


range from wave guide 

offset range 

time scale 

speed of wave guide 

difference of wave time and predicted time 
predicted *+ine 

time in hour 

Sine in hinute 

time in second 

actual time of wave 

previous hcerizontal axis oz wave 
previous vertical axis cf wave 


ative bearing of wave in degrees 


4 
t-—# 
¢)) 


e 
mee =ZOntal axiS of wave location 
vertical axis of wave location 
numeric input from ksy board 
Gharecter width 

Gharacter high 

Cneracter aap 

line gap 
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Zc 
ral 
Zzq 
Zk 


zy 


character data 

data pointer to read character 

varible pointer of array "a" 

moE~rzontart location 9f alphanumeric output 


vertical lcecation of alphanumeric output 
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master ccntrol frogran 
cail set characters 
call error table 
ee 
Goewhile qi © qi 
call input data 
@eil offset 
Baal echo input 
cell set time scale 
Gali plot grid 
do while qq <> 1 
call wave position 
cail print time 
Call cempute time difference 
eat Gide 5 eDor> 


end do 


2nd master control 
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subroutine offset 
input "the offset of primary control ship from reference 
BO2nt need rang’ = bp 
do while bp > 360 
print er $(3) 
snput "the offset of primary control ship from 
reference point in béaring" 3bp 
end do 
do while bpo<0 
print er$(2) 
mOut “tne OLfset Of DrEamazy control ship fron 
rererence point in bearing" 3;bp 
end do 
mapuc “range Erom reference point"™";rn 
ph = int (bp-co) /180* 3. 1415925654 
px = int (200-rn/10*cos { ph) ) 
py = int (172-rn/10*sin (ph)) 
Pomwiale px > 255 or px < 0 or py > 191 or py < 72 
Treuc “samee from refersnce point"™:rn 


PE:nt er$ (1) 


ph = int (bp-co)/180* 3. 141592654 
pX = int (200-rn/19*s os (ph) ) 
py = int (T72~-rn/10¥*s in (ph)) 
end do 
return 
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subroutine echo input 
(set screen to graphic mode) 
Zx=0 
zy=0 
a$="wave's speed is" + strS(sp) + " wave's course is" + 
str sd (co) 


call print_message(zx, zy,45) 


zx = Q 
zy = 9 
a$ = "n-hour is" + str (hh) + "s't # ser (mn) 


call print_ message (zx, zy,3 5) 


ZX=36 


zy=18 

as="bearing" 

cali print_message(zx, zy,2 5) 
ZX=36 

Zy=27 

aS="range" 

caii print_message(zx, zy,a3) 


ZX=36 


cali print message(zx, zy,a3) 


ZX = 36 

zy = 45 

a= anid Srosizion ist 
Cali print _message (zx, zy,2 5) 
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zx = 114 

zy = 18 

aS = "degrees" 

call print_message(zx, zy,25) 
zx = 114 

zy = 27 

aS = "yards" 

call print_message(zx, zy,2 5) 
Be ena 1 


subroutine 


Sila report 


if wy < 142 and wy >= 137 then 
ges = "r 
Ges = "vector left 5 " 
end if 
if wy < 162 and wy >= 142 then 
Geb = "c 
gcS =" 
and if 
2f wy < 167 and wy >= 162 then 
grs = "i tt 
Gese— “VeGz2ZOr right 5 " 
Sad if 
im wy >= 167 then 
Gao = 81" 





Hep ' weerer rignt 10 " 
end if 


miewy < 137 th 


D 
| 


aie = "rr 


gc$ Wyeccor left 10 " 
end if 


Tf wx <=0 then 


gz5 = “*tcuch down" 

ZX = 32 

zy = 72 

a$ = "press'q' to quit else continue !" 


call print_message(zx,zy,a5) 


qq = 1 
ena if 
zy = 45 
zx = 138 
af = gr$ 


call print_meées sage (zx, zy, a5) 


mE gags <> gc then 


zy = 54 
Zk — 36 
ag = gch 


call print _message(zx,zy,a5) 
gg$ = gc$ 
Sigel Beles 


Teturcn 
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Subroutine input data 
(clear screen) 
input"h-hour "shh 
do while hh > 23 

print erS (4) 
Supe h=h cur’ =: hh 
end do 
@e while hh < 0 
Drint ers (2) 
input"h-hour"™;:hh 
erd do 
input "m-minute™ smn 
gemehzle mm > 59 
print er (4) 
Zrnout "nm-minute"™ sna 
end do 
do while mm < QO 
pPeone ©26(2) 
input "neminute"san 
end do 
Mapu: set boun"sth 
SO whale th 2623 
print er$(4) 
input "set naour":sch 
ena do 
Gemwhile th < 0 


Pewme Srt(2) 
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mput "set hour :th 
end do 
input "set minute the realtime clock will 
Start after you press <enter>";tm 
do while tm > 59 
print er$(4) 
input "set minute the realtime clock wil 
Start arfter you press <enter>"stm 
end do 
do while tm < 0 
Beouewer ti?) 
znput set minute the realtinas clock will 
start after you press <enterd>”" stn 
end do 
*imer=0 (stare realtina clock) 
input “boat lane's course":sco 
do while co > 360 
Omen > 207153 )u* 


maple “DGes Jane's course™:cs 


do while co < 0 
print erd(2) 


PiputeeuocCae Lane's course's co 


input "wave's speed'"ssp 
do while sp < 2 
print er$(2) 
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snput "wave's speed'":sp 
end do 


isa urn 


subroutine compute time difference 


tu = int (wx*. 3/sp) 


c+ 
ae) 
i 


60* (hh-th) + (mm-tn) 
if tp = 60/sp then 

zX = 36 

zy = 54 

aS = "zer0 flag down" 

call print_message(zx,zy,a5) 
ead =f 


mesint(tp=60/sp) = 5 then 


ON mee 36 
Zy = 54 
aS = "zero flag up! 


cail print_message (2zx,Zy,a5) 


cmide if 
ae = 2U-tp 
zi tc = 0 then 
aS = "you are ontine" 
ZY = 36 
ZX = 152 
t$ = af 


Ca peat message ( ZX,zy,a5) 
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emes@ if tc < 0 then 


+$ = "min.early" 
else 

+3="min. late" 
end if 


tc = int (abs (tc) ) 
wr tS = {23 then 
zy = 36 


152 


N 
ra) 
iT) 


a$ = str$ (tc) 


cali print_messa ge(zx,zy,a3) 


Teer pp <> ted then 


Zy = 36 
zx = 152 
aan ees (tC) £ tS 
call int_messa ge (zZx,zy,a5) 
end if 
ay 2 f 
tes = t3 
B22 urn 


Subroutine error nardier 
Ze e= 36 
zy = 54 


a8, 





af = erS (em) 


cali print_message(zx,zy ,a3) 


r2turn 


subroutine error table 


ers (1) 
ers (2) 
er$ (3) 
ers (4) 
er$(5) 


fee urn 


"out of scresn " 
froo smail vaiue " 
"greater than 360" 
"toc large value " 


tinvalid input i" 


PweemOouLtine read time 


ts = Fix(timer/60) 


me tc <> ts then 


nt Oe 


ch dame 


te? 
rh 


i 
ct 
Cy 
+ 
a | 


Sak 





eng =f 

if eh o= 24 then 
th = 0 

erdee. = 


end if 


subroutine print time 


eee= strs%th) + strS(tn) + strS(ts) + ™" * 
zy = 36, 
zx = 90 


call print_méessage(zx,zy,as) 


4h, 


return 


Subroutine wave position 


ZK = 78 4 
/ 

zy = 18 

a5 = 8 2 10 


Call print_message(zx,Z y,a3) 
Zx = 84 


Ger numeric input (zx,Zz y) 


lemuiawe pe > 360 or br < 0 





Cac 


error_handler (em) 


zx = 78 
ZY = Syd 
as. => 2 J. 
call print_message (zx, zy,a$) 
zx = 84 
call numeric_input (zx, zy) 
br = xv 
end do 
zx = 78 
oy = 21 
aS =" ? " 
call print_message(zx,zy,ads) 
zx = 84 
call numeric_input(zx,zy) 
de while em = 4 or em = 6 
em = Q 
Zx = 78 
zy = 27 
ajo = ' 2? f 
call print_message (zx, zy,a5} 
zx = 84 
ea Tess Clmnput (zx, zy) 
end do 
ag XV 
gen unakasrg < O 
em = 6 


ae 





call errer_handler (em) 


zx = 78 
zy = 27 
as = ! 2? " 


call print_message (zx, zy,a5) 
ZX = 8Y 


Gall numeric input (2x, zy) 


end do 

wh = (br-co)/180*3. 141 592654 
wX = int (px-rdg/10*cos (wh)) 
wy = int (py-rg/10*sin (wh)) 


if wx < o then 
wx=0 

enarir 

me wk > 255 Cr Wy P 791 or wy < 0 then 
em= 1 


call errcr_handier (em) 


else if fg = 1 then 
line (wx ,Wwy)- (vx-vy),preset 
put (vx, vy) — (vx+*z4, vyt+z7),b,o0set 


end i 


rt 


Vx = WX 


54 





VY = wy 


get (wx, wy) ~-(wxt+z4u, wy+Z/),b,g 


2X = WX 
ZY = WY 
a$$ = “wen 


Call print_message (zx ,Zy,a5) 


Be curn 


subroutine set time's scale 
sc = sp*.55555*2'20 ssc 
kK = 0 
do for i= to 220 step sc 


= k/3-int(k/3) = 0 then 


}-t- 


ape = Ser o (int (k73)) 


ax i 
zy = 180 
call print_message( zx,zy,a5) 
mined V32)—= (1, 176) ,octesst end if 
Line (1,17 2) - (2,176), preset 
k = k+1 
me ct: 


return 


BipeouTzne plot grid 





Ge= 132 
do for i= 1 to 6 
Line (0,9) -(255,q9) ,preset 
g9 = gt5 
if g = 147 then 
g=162 
end if 
next i 
motor i = 0 to 255 step 20 
line (1,128)- (1,172), preset 
ied <> 0 then 
ZX = i-t2 
zy = 120 
ades=es5r5 (int (1/10) ) 


call print_message(zx, zy, a5) 


ZX = px 


N 
<q 
il 


PY 


= NEN 


ay 
> 


call print_messageé(zZx,zZy,a3) 
Line (0, 128}- (20,80) ,prasest 


Line (20,80) - (20,30) ,or2aset 


= 


sns = "shore" 

zy = 36 

MomeGCe 2 = | to 5 
ZX = Q 


aus 





as 


= iMtra nish >, 2, 1) 


call print_message(zx, zy,a$5) 


zy 
next 
draw 
zx = 
zy = 


ag 


call 
ZX = 
zy = 


a$ 


eal i 


ee2urn 


= zy+9 


Nomila, W6scOse 10s d4 sr 24sd123;124:d43h10" 
118 

Yes) 

str$ (co) 

print_message(zx,zy,ads) 

10) 

88 

"chip te shore simulation" 


print. _messaqe(zx,zy,a3$) 


Subroutine numeric input 


call 


c$ = 


f- 
tt 
ab 


> 
t+ 
{ 


- 3 
aw 


ith 


$4 


cu 


do 


print _méssage(zx,zy,as) ‘input 


te 


inkey$ 


<> chr$(13) then 


Len (c3$) ~-1 
while as = chr3(8) 
Crome ere (CS, C1) 


= i-1 


ae 


a7 





ZX = ZxX~-6 


AS = inkey$S 
ena do 
do while ag = 


call read_time 
A$ = inkey$ 

ena do 

meeasc(as) < 48 or asc{as}) > 57 
emn=6 


cali erzror_handler (em) 


ee CUIn 


ac 


+hen 





Subroutine set character 
Gam a(2), b(2), erd (6) 
(clear screen) 


print "please wait for loading characters !" 


Z4U= & 
z7i=i7 
Zo = 6 
z9=9 


do for zl = Qto 479 
read zc 
poke 31647+z1,2Zc 


next zi 


Subroutine print message 
L = ien(a5S) 
motor j = 1 to l 
wooo = m2adt{as,j, 1) 
cee MePERMee oO aLactel (ZX,Z7,24,2/,29,2Z5) 
next j 


x 2) ob papel 


eum broutone print character 
ZC = asc(zZ5) 
mee= 7C-32 


Ziew=  7C*5+3 16U7 


a9 





zq = 
poke 
poke 
poke 
poke 


poke 


varptr (a(0) ) 
zq, peek(zl) 
zq+1, peek (zit) 
zq+2, peek (z1+2) 
zq+3, peek (zl+3) 


zq+4, peek (z1+4) 


pur (ZX, ZY) ~ (zx*#z4,zy+z/),a, pset 


ZX = 


return 


ZX+*+2Z8 


60 





5 rem this program is +9 Simulate the amphibious operation 


in ship-to- shore-mcvement phase 


ioe py ix. 


Chanck Hongnoi 


15 *october 4, 1982 


20 rem varible declaration 


Bey ‘asd 
eo e'cs 
Eee? acs 
40 'qr$ 
45 "qs 
50 '"sHS 
ea ' tS 
Ber *tius 
Ba °ZZ5 
woe *bp 
fe ‘br 
pup ' ci 
Bs *co 


a0) * 


iD 


HA) 


Bo ‘ig 


riy 


a0 'g 


fe hh 


Stace oiiecet fot display 
numeric input buffer 
command used for control 
@eead repost burr er 

quit command 
Otenuaeehesword “shore" 
<ime report storage 
Drevicus time report outou* 
Character of a$ 

oriset pearing 

bearing wave input 
Lengheaet acs 

lane's course 

error message pointer 
Mader’ sOGS oc On plo= 


Van pees adap. > t 


ot 





110 
115 
120 
12.5 
130 
"> 
140 
145 
150 
155 
160 
165 
170 
75 
16 0 
185 
1$ 0 
19.5 
20 0 


Zu > 


220 
2, a 
230 
235 


240 


'mm 


'ph 


somal 
SC 
'sp 


Dc 


Fi 4 
'yy 
wh 
"wx 
twy 
"XV 
24 


o2 4 


Oop coun el 

loop counter 

loop counter 

length of af 

m- minute 

direction in degree 
neteZGiwol ates Of “OCS. 
vertical axis of pcs. 
quit, tlag 

range from wave guide 
offset range 

time scale 

speed of wave guide 


d 


}- 
ef) 


tference of present times and predicted tine 
predicted tine 

+mme in hour 

time in minutes 

time in second 


present tine of wave 


(D 


previous horizontal axis of wave 
previcus vertical axis of wave 
relative bearing of wave in degree 
horizental axis of wave Location 


vertical axis of wave location 


‘S) 

(3 

=| 

rc) 

ry 

jie 
2 

+e | 
'? 

= 

c+ 
it 


rom kev board 
character width 
character higa 


Oz 





245 
250 
oe 
26 0 
265 
270 


ee 


299 
300 
30 1 
By 
310 
2) lbe) 
210 
Bo 
Be 
B'S 
340 
345 
350 
BD 
360 
3265 


370 


B75 


'Z78 = character gap 

'279 = line gap 

'Zc = character data 

'z1 = data pointer to. read character 

'zq = varible pointer of array "a" 

ime = hOrizontal iocation of alphanumeric output 
'zy = vertical location of alphanumeric output 
1k OR RR KR RR RK OK a KK KK RK KK RK KE KKK 
rem master control progran * 


CCC SCC CoS SSeS ST STS eT STS Se CST eS eCSC eS SS 2 2 2 2 


Glear 


gosub 


gosub 


200, 3 1646 

ws00 * Sez charact er 
1100 ‘error table 
700 ‘input data 

400 ‘offset 

500 echo inpuwet 
1500 ‘set time scale 
HoOOmet pL Ot grid 

1300 ‘wave position 


W245 "print tina 


(y 


gues 


iD 


900 ‘compute time Giftfer 


G00 “Grid Ssepcrs 


1=f qq<>1 then 345 


qs = 


th 


{4 


q$ 


ee, S 


inkey$: 
— VU Vaen 370 


See then 320 


613: 





380 


385 


400 
405 
406 


410 


stop 


end 


Terr rter ee Terr t ttt ett t+ ett reteCecerer ee St. 2 te" 


rem subroutine offset * 


B fe ee ate he he he ete he RK He eK he i ok eo fe oe eK ake fe 2k he oe ake eae aK i 2 oe 2k fe ie oe ok eo 


meout "the offset of Peilaby  sCOntzol Ship fron 


reference point in bearing" 3;bp 


415 


420 


425 
430 
435 
440 


44d 


450 


30 0 
505 
506 
510 


if bp > 360 then 
DEtnt.e6 (3) : 
goto 410 

me bp < 0 then 
Bmaene S55(2) : 
goto 410 


input "range from reference point"srn 


ph = int (bp-co) /180*3. 141592654 

px = int (200-rn/10*cos (ph) ) 

py = int (17 2-rn/10*sin (ph) ) 

mmeor > 255 Of px < J Or py > 191 of py < 72 then 


preant er$(1): 
goto 425 


return 


BK Kk he ek fe KK oe eae Ke ae ee ee ee eK ke He he eK ee oe oe i ok Ke KK OK 
rem subroutine echo input * 
Ok Kok ok a KK fk Ko ORK KK ROKK RK RE KK KK KKK KEE 
pnode 4,1: 

Screen 1,0: 


64 





pels 1 


Sae> zx=0: 


zy=0: 


a$="wave's speed is" + strS(sp) + 


str$(co): 


pa 0 


eS 


53 0 


3 5 


54 0 


gosub 2000 'print message 


Ze = 0: 
Ze 9: 
een nour 1s” + sts S(hh) + “:' 


gosub 2000 ‘print message 
Zx=36; 

Zzy=18:3 

aS$="bearing "s: 

gosub 2000 :;: 

2x= 36: 

Zy=27: 

ag="range'; 

gosub 2000 ‘nrint nessage 
ZX=36: 

Zy=36: 

af="time": 


gosub 2000 ‘print message 


Zx = "36: 
zy = 43: 
mee ot ad —cOS.cion ss: 


gosub 2000 ‘print message 


ZX = 1743 


65 


t wave's course is" 


+ strd(mm): 


+ 





ay = 18: 

a$ = "degrees"; 

gosub 2000 ‘print message 
945 zx = 114: 


a 


27 


a$ 


"Nvards "3 
gosub 2000 ‘print nessage 


Bao return 


AMMIETECISCS LSS CL SSO LetCLe Le Tete CeCe e tere les. 2 2 2. 
605 rem subroutine grid report * 
60 6 8K dO oe ok ok tok tak feta tok foie eek kK ok kK ok KO 


610 if wy < 142 and wy >= 137 then 


Geae=) “rs 

Gdete=vivecto> left 5 " 
615 if wy < 162 and wy >= 142 then 

ges = Ve": 

Sep =" . 


620 if wy < 167 and wy >= 162 then 


Giso = wT he 

Gene = ““Weetcr bpigh: 5 *" 
625 iz wy >= 167 then 

Seo = Wats 

gem = "yeeker right 10 " 
639 ir wy < 137 then 

Gan = Writs 

Gete=- “Vector left 10 *" 


66 





S35 


640 


645 


650 


7100 
705 
796 
710 


eA5 


$f wx <=0 then 


Gaome= Wtecuch) down": 

Zhe 32% 

715 Taw I de 

ear = "Dress" q* to quit else continue !"; 


gosub 2000 ; 


gq = 1 
Zy = 45; 
Zx = 138: 
ad = grs: 


gosub 2000 ‘print message 


it ggs <> gcS then 


Zy = 54:3 
Zk 303 
aS = gc$:; 


cosub 20C0 : 
gqq3 = gcs 


Le cw fn 


Wok eo ok KK eK RK KR KK RK RK RK RK KK KE KKK 
rem subroutine input iata * 
Bok ook ak ek oe tok eK KR ROK KK eo OR RK KKK KKK 
cls 

Pour —how cs hh 


if hh > 24 then 


oF 





fe5 it hh < O then 
Pepe er dii2)) : 
g@zo 715 
730 input "m-mninute" som 
735 if mm > 60 then 
print er?(4): 
got Om 730 
7440 if mm < QO then 
Pernt €ms(Z) : 
Gato 730 
745 input "set hour':¢ 
750 if th > 24 then 
print er$(4):; 
goto 745 
feo if th < 0 then 
batnt erp (2) : 
goto 745 
760 input "set minute tos 
you press <entero"stnm 
765 if tm > 60 then 
Diaiee @ ca¢d) : 
goto 760 
770 if tm<O then 
Brea eer + (2): 
goto 760 


775 tiner=0 


Teaitims clock 


780 input "boat lane's course"™;co 


- 


Ss 





£3,5 


790 


795 


800 


SAM 


B25 


er 


co > 360 then 
Dente r (3) : 
goto 780 

co < 0 then 
Pen twers{2) : 


goto 780 


input "wave 's speed";ssp 


a8 


Soe < 2 7 hen 
Prant, ers (2) : 


GOtO 195 


return 


Bde 3 Oe ae Ae ak he eK A eK ae Mee KK a A OK oe eK OK OK eK a ke KK KK KK 


rem subroutine compute time difference * 


Bote ke Ke a oe ke teak Re ee Ke ee ee eke a ae oe ok OK oe ak ke eK ee ok ke ok ok Ok OK 


tu 


c 


ae) 


= 


me) 


av 


Loe (wx *. 3/Sp) 


60* (hh-th) + (mm-to) 


tp = 60/sp then 


Zee = 363 
ZY = SU: 
Soe=  '2eu) Slag down": 


cosub 2000 ‘print message 


Pmietep-o0/Sp) = 5 t hen 


Zx = 36: 
zy = Su: 
eae ZO Tom f lag .up"' ¢ 


gosub 2060 ‘print nessage 


62 





330 


es 


94 0 


945 


220 


355 


96 0 


965 


1000 


ce = tCu=-tp 

it tc = 0 then 
aS = "u are ontimea"; 
ZY = 36: 

12" 


ZX 
t$ = af: 
ges be2 0 00.: 
goto 960 
pootc. < 0 then 
*$ = " min.early " 
else t5="* min.late " 
te = int (abs(tc)) 
1=f tS = tt3 then 
Tia 36%: 
Ute 152: 
cep Se 5 CoC): 
gosub 2000 ‘print message 
moe > =ts then 
wy = 856: 
ZX = 152: 


a$ 


Stree cy) 4 §: 
gosub 2000 ‘print message 
t2$5 = +$ 


Eetwen 


Ue EM ee AE KR KE RK OK ee a ek a eK OK KOK ee eK KK KK Ke 


1005 rem subordinate error handler * 





10 06 


10 10 


10 15 
10 20 
O25 


10 00 
a0 5 
1106 
nO 7 
ATO 
15 
1120 
1130 


ers 5 


1200 
12905 
12006 
fe 10 
2.15 
12 20 


225 


ne 30 


Oe mee eK he hee ae eae eK KK a he he eK he ee eK he i eK ke ee oe ok ee KK KK 


ZX = 36:2 


ZY 54 


ag 


er$(en) 
gosub 2000 "print message 


return 


Oo KK ee KK oe hae he he KK ee te KK KK he KK ee he ee Ke OK 


rem subroutine error table * 


OK fea eae ee eK oe ke oe a ek KK KK RK KKK KK KKK KK 


er$(1) = "cut of scr2en . 
er$({2) = "too smali values '* 
er$(3) = "greater than 360 " 
exr$(4) = “too large value '" 
er$(5) = "invaiid input " 
Beturn 


Oe KK ee te ke he KK Ke ee KKK oe KE EK he KE OK KE OK 


suproutine read time a 


ren 
Ghee KK ee ke Ke ea ote ee te Ke aK he ee eo he eK te ee eK oe Ke ok 
LS = 


Fix(timer/60) 


e 
Mies 


hh 
ct 

Q 
i 


=s then 1240 


i 
th 
ct 
uy 
V 
T | 


60 then 





tiz3 5 


1240 


i244 
1245 
1246 
1250 


W255 


13 20 


25 


ene. th+1; 
tm = 0 

Se ch >= 24 then 
th = 0 

return 


We He ea Henk Ae Ae i eo ea a Ke i A Re he a eo oe a KK oo eK a 


rem subroutine print time * 


Bowe oe We he aK eK eek oe ee ea ae He aK HK eK tc ae oe a ae eo oe KK ok ok ok 


eeeeesceo (th) + Strs(tm) + str$(ts) +" 
zy = 36: 
2x = 90: 


gosub 2000 ‘print message 


return 


BK Ae EK RK Eo oe aK EE Ee ae OK a Ke ae eae EK OK i Ne ie eK OK 


rem subroutine wave position * 


ok a Ae Me Re eK Ne oe Oe ie Be Re KK KK eK RK KK KE eK OK KK OK 


max = 73% 
Zy = 18: 
a5 =" ? bs 


gosub 2000: 


ZX (=—2 304: 
gcosub 1815 
pr = xv 


DembGe> SoOmer br < 0 fhen 


dD 


m= 63 


gosub 1000: 





13 30 


15:35 


1340 


1345 


ie 75 


} 4 


rh 


} 4 


goto 1310 


Zite= 783: 
ZY = 27: 
aS =" ? ee 


gosub 2000: 
ZK = 84: 
gosub 1815 


em = 4 cr em = 6 Ener 


em = 0: 
goto, 13 30 
Tg = xv 


rg < 0 then 
em = 6:3 
gosub 1000: 


goto 1330 


(br-co) /180* 3.14 1592 654 


int(px-rqa/10*cos (wh) ) 

= int (py-rg/10*sin (wh) ) 

wx < o then 

wx=0 

Nae ec oeeaO@r WY > 191 or wy < 0 then 
en=1; 

qoesub 1000: 

return 

fg = 0 then 


Oreset (wX,WyY): 


rth 


g=1; 


a3 





13 80 


1385 


1390 


395 


1400 


1405 


1500 
15:05 
1506 
15 10 


3C 


i 35 


goto 1350 
if fg = 1 then 
line (wx ,wy)-(vx-vy),preset 


put (vx, vy) ~-(vxt+Z4,vy+z/),b,psert 


cie= Wits 
Vy = wy 
get (wx, wy) ~(wx+z4,wytz/),b,9 


a 


WX ¢ 


Zy = wy: 


as UW We 


gosub 2000 'print message¢ 


Be warn 


OK KK Xe HE RK A eK KKK KK KK KKK KK KKK 


rem subroutine set time's scales rs 
1 kok kok dak ok kk koko dak ok kak cok ok kk ak ke de ok teak ok ok ek akc kok ke ok ok 
Sc = sp*,55555*2 


Pome co SeSp Sc 


k/3-int (k/3) = 0 then 


as Sunn (int (kK /3)): 
Zo = Ls 
zy = 180: 

gesuk 2000: 

ene ties 2) (2, 1/6) , preset 
ive enemy 2) = (980176), oreset 


k = k+1 


74 





16 35 
1640 
16 45 
16 50 


ie > 


1660 
1665 


16 70 


bext 2 
meturn ° 
PEST LTeCCeC Ce CCOCeroercrrerererere rere rer rs 2 2. 
rem subroutine plot grid * 
1 aOR dO FOR tk k dok sok foi ak ok dk kok ok kK 
q = 132 
Gee i= :1 tc 6 
line (0,9) -(255,4q9), preset 
g = gt5 
if g = 147 then 
g=162 
mext.. + 
Pore a = 9 to 255 step 20 
ieeeou3, 126) = Ge, 172), oreset 
2f i=0 then 1665 
ies Ba 2: 
zy = 120: 
ad = str (int (i/10) ) 
gosub 2000 'print message 
mess 2 
Zi = px; 
ayo - py- 
aoe as 


gosub 2000 ‘print message 
line (0, 128)-(20,80) ,presat 


line (20,80)-(20,30),oreset 


75 





1685 
1690 
1695 
1700 
1705 
17:10 
i iS 
72 0 
te25 
Ww 30 


H35 


1740 


1800 
1805 
1806 
18 10 


fe 15 


18 20 


sos = “shore 
zy = 36 
for 1 = 1 to 5 
zx = Q 
aS = mid$(sh3$,i,1) 
gosub 2000 ‘print message 
Zy = zy +9 
mexe 2 
Seaweeomaie, 1085c0;210;d455r24:3123;124;d4:h10" 
zx = 118: 
~y = 105: 
a$ = str&(co): 
gosub 2000 ‘print message 
zZx = 60: 
eye = 88: 
m@e=n "Ship tO shote simulation": 
gosub 2000 ‘print message 
see bhorg 
EPeTeoer ee Ce Cereer rere rerrrere eer ere rere s 2 2 
rem subroutine numeric input * 
Ode se eK he oe ee ete ok ee ke he ek eke eee ae ee ee KE ie eK eK eK Ke eK 
gosub 2000 'print nessage 
cS = "te 
i= 
AS = inkeys: 


BE es 


— 
cnedh 


3 Cie 13) chen 1865 


Te) 





le > 


1830 if ag = 


He 35 


18 40 


1845 
1850 


155 


1860 
Te6 5 


1870 


19 G0 
1905 


e706 


el = leani{cs)-—1 

chrs(8) then 
Goe=—= 1etts.(cs,cl) : 
1 = i=l: 
Ze = 2x6: 
goto 1820 


an 


aoe chen 


}+ 
th 


gosub 1200: 
goto 1820 
asc(aS) < 48 or asc(a3) 
em=6: 
gosub 1000: 
goto 1870 
ch = c3+adh 
gosub 2000 ‘print message 


L+1: 


Gesub TU00: 
return 
meco 1620 
vali(c ?) 


xV = 


eta oeh banal 


Ve se ok ie ee ee ee eK ok ok eK KK KK kK ae oe KK KK KO oe ROK KKK KEK KK 


Bees ilprowl ne Set cheracter 


Bote ok fe sek ok eke eke oe ok he oe a ae oe ea ae ae ee kK OK ek KK KK OK OK 


rie 


> 57 tnen 





19 10 
1915 
19 20 


1925 


19 30 
noes 5 
1940 
1945 


50 


20 00 
2905 
20 06 
20 10 
2015 
20 20 
EO 25 
29 30 
2035 


dine a(2), E42), er$(6) 


cls ° 
tH 


print "please wait for loading characters 


z4= 4s 

zi= 7; 

Zo = 6% 

zer= 9 

for zl = 0 to 479 
read zc 


poke 31647+4z1,zc 
next zl 


return 


PCerereree ree er rre Tere reerrere rere. fi. 2. tos 2 
rem subrousine print message * 


Oe ee He Te a eK eK OK eo eK KK Ke ok KE ok ok ok KK KOK 


Madd (a bi, j gel) 


gosub 2100 ‘print character 
Bext } 


Teturn 


Wok ko fe eo ota fe ek oe ee ee ok ok ek ek oe eK OK KK eK ok KK KK KK 
Fem SUDTOCUTZNeE print character * 


Uo aK te ke eK eae eK eK Ree ie Ke ie ee eK i ek ee eK KK Kk KKK 


ZG 2156 (2.25) 


Ede & Ze owe 


72 





ZZ 5 
2130 


Zves5 


27140 
2145 
2146 


250 


ZS 
2200 
E205 
232 


Be! 


Ee! 
2202 
m6 / 
was 2 
ez 7 / 
Z202 


2287 


Zi Zc*5+ 31647 


Zg = varptr(a (0)) 


poke zq, peek(zil): 


poke zqt1, peek (zit?) : 


peke zq+#2, peek (zl+2) : 


poke zq+3, peek (zi +3) : 


poke zq+4, peek (zi +4) 


Peet zX,ev) —-(2Zx+246,Z2vV+Z/),a,pset 


re 


wie ZCCZS 


return 


BK SR Ae Ke eK eK OK oe eK KK a KK oe KK KOK eK KOK EK 


rem character data area* 


ESPtPCCCeCeerrceeerrereercrrereleceeeele selec reer. 2 22 2 2 
Pewee, eas COD, 2599, 295 
eae ce2, 24s, 189, 255, 127 
imo las, 19, 95, 255, 255 
Gace 17/3, 65, 80, 86, 191 
eeeae220, 23, 29, 7, 127 
feacomon pelic/, 187, 179, 159 
Seed loo, Zia, 117, 54, 95 
PSO. ZIG, 295, 295, 2099 
Seeae zac, 2ac, 123, 239, 191 
Sarco 0, 25, 222, 238, 255 
Heeamclcg tog, 8 I71, 127 
Ja ccmee oc, 246, 13,5239, 255 


WS 





e292 
Ae | 
2302 
Zu 7 
2312 
Zon) 
Zoe 
23) Cal 
2552 
gor] 
Za 4 2 
2347 
2 apa 
255 / 
Zo 2 
Zao 7 
eo 2 
23) ia 
Zoo 2 
ga0 | 
ee 92 
5s a 
2402 
2407 
2412 
24.17 


ea 22 


data 
cata 
data 
data 
data 
data 
data 


data 


205, 
7, 
139, 
139, 
250, 
156, 
238, 
255, 
190, 
139, 
139, 
Dour 
ee 


Lose 


25) ¢ 
254, 
2S), 
1e7, 


12, 


WG 2 


Ze, 


eee 


157, 
157, 
231, 
255, 
238, 
193, 
rie 
189, 
189, 


ole 


ls 


iss; 


Pa Tiga 


D7, aed, 225 


ya's?) ye aes, 


Zoey 50, 255 


leprae, 255 


162 4.2 07.23 


So ae2 Ser 01S 


25, 56; 31 


(597 290, 63 


ZUG peteto, 19 1 


a Doge 


23, Do,y 635 


B72, 1894. 25:5 


232 OG 105 


Dy “Sor 63 


2095 20), 225 


SY A aca 8) S) 


Zoe 2 So 


PAG Ge 127 ,c D> 


235m 2o0¢ 25) 


ee 1! 


42, 63 


Zoe 2 lgeece 3 


27, 88, 63 


24u7, 186, 63 


107, 38, 63 


Sy oo gS | 





2427 
24 32 
2437 
2442 
2447 
2452 
2a | 
2462 
2467 
2472 
2477 
24 82 
2487 
2492 
eu | 
2502 
2567 
Za 12 
2517 
Zo22 
23) 7a 
a 52 
Zo 7 
2542 
2547 
25 2 


2597 


data 
data 
data 
data 
data 
@aca 
data 


data 


1301, 
eS), 
142, 
247, 
Whee 
| OS 
dnIPS' 
dey 
3, 

‘he 
ieee 
11, 

139, 


6, 


247, 


dei 
156, 
247, 
So, 
86, 

2224 
29, 


48, 


16, 


6, 


ior 


IDs, 


E39 
233, 


alr, 


117, 


ZG 


23 


21, 


Teo, 


187, 


Weer 


iI yeeo, 05 


Ueto 225% 


loo 2 3056 63 


23e eo, oO 3 


Weelea 223 


Ue ua ol, 3 | 


WOE Se eA e 


Doge | 


Wiss sy) 


229, 24, 95 


Wa» 223 


Sage SogecOS 


Fa aS es | OE | 


Zale 2S, 10 3 


SOpmeoS Jie | 27 


TAPAS) Saas A PARR 


NEG 1 co, 2235 


Vom 239,127 


lee 5 31 


WLS) (8 Jafar 1e)8' 


Oy 2 ole 223 


2227 246%, 63 
Wiis 34 eRe 
Pipi a eas arama 425, 
(Bedi 


20, 2:1 


st 





256 2 
2567 
B57 2 
2577 
258 2 
25 87 
Be 2 
2597 
2602 
2607 
26 12 
2517 
Zor2 2 
2627 
Zoro 2 
Zo 37 
2642 
2647 
2052 
2657 
26 62 
Zo67 
2672 
2577 
26 82 
2057 


Eo 2 2 


data 
data 


data 


data 
data 
data 
data 
data 
data 


data 


103, 
23 
1327 
224, 
Zo, 


201, 


Aa) 3) 


Zens 
186, 63 
U0, oD 
© af [ey 8 
127 


Vit, 20? 


Vode gue e3 


Sul, 

239, 
Use 
Uislel 
165, 
103, 


23 \, 


PPAR Sd LF 


230, 
103, 


248, 


718) 3) aa 6 


PS SEPA Oke, 


W735. 194 
238, 63 
5 ORs 
F7in 223 
58, 63 
239 
T5222 
189, 255 


248, 63 





mee, Gata 190, 247, 221, 238, 255 
Mog Gata 186, 187, 255, 255, 255 


meow data 0, 0, 0, 0, 0, 
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ome COMMANDS 


WORD 


AT N 


AUDIO 


CHRS 


enc Le 


CLOAD 


US =D 


COMMAND SUMMARY. 
EN COMPUTER. 


BO ReOs se 


Cemputers absolute value. 
Reem@eans ASCILE code of first 
Giideaeter OF Specified string. 
Returns are tangent in radians 
Cennects or disconnects cassette 
Olr-puc to LV speaker. 

Recirens Chatac eer for ASCII, 
Goerol, OF Graphics code. 


with = 


center 


sd 


Draws a Cc2sle 
piemme (X,%) With a cadius of r, 
Gere SpeCi.- 2 ed COLOUL C, Wath 
height/width ratio(hw) of O-4 
Circle can begin and end at 
Sbeem-.cd point (0-1). 

Reverses n bytes of String storage 


Space. Initializes variables. 
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CLOADM 


Cios E 


GES 


COLOR 


CONT 


e9'5 


eSav © 


CS AV EM 


DATA 


specified, first file encountered 
is loaded. Filename must be eight 
characters/s paces or Less. 

Loads machine language program 
from cassette. An offset address 
to add tne Loading address may be 
S5oc ited. 


Closes open file or devices. 


Clears display to specified color. 

If color is not specified, green is 

is used. 

Sets forground and background Joes 
Ccntinues program execution after 

pressing BREAK or using STOP statement. 
Retuecns cosine of angle measured inradians. 
Saves program on cassetts (progran 

name must o2 eight charactar/ 

spaces or l2ss). For ASCII format, use "A," 
Writes out 2 machine-language file. 

Stores dat2 in vour program. Use 

READ to assign this data to vari2bdies. 

Meri nesseaume -Ye Function. 

Meteenes en ry volnt £5r USR runction. 
Allows deletion of program lines. 

DEL- Delete entire progran. 


DEL n Deletes specified line n. 





DIM 


DLOADM 


DRAW 


C35 


al 


DEL n- Deliates ail lines past n. 

DEL -n Deéelates all lines up to n. 
DELn-n Delates all lines between n and n. 
DimenSions one Or more arrays. 

A 4K syste2n allows only one dimension. 
A 16K allows multi-dinensional arrays. 
Loads machine-languag?2 pvrogran 

at specified baud. 

0 = 300 baud 1 = 1200 baud 

Draws a line beginning at speci- 

Mmied Stakeange@pownte of specified 
Wengrenewe: soecM@ried calor. Will 

also draw <5 scale, draw blank 

lines, draw ea en lines and 


Preece Substrings.s If starting 


charac®ers. 


foe Charactsrs. 


(p 


Eee Delatss n numb 

IT Allcws insertion of new 
ehatacter. 

H Deletes rest of line and allows 

Ese ot. 

: P2sts SCUbsene Llcr2= “and conzinues 
edit. 
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EN D 


EXEC 


Exponential 


ig X 


Msc Peocescissecee nen OCEeEurrence of 
Chats Gijerec < 

x Extends line. 

SHIFT -~ Escape from subcommand. 

n SPACEBAR Moves cursor n spaces to right. 

n< Moves cursor n spaces to left. 

Ends prograa. 

Returns FALS£(0) if there is more 

data; TROUS({-1ipif no data is in the 

specified file. For cassette files, 

f = -1; for keyboard files, £=0. 

Tramstersecontrol to machine- 

language programs at specified 

address. Ii address is omitted, 

Gene rol is.eransterred to address 

S2t in last CLGOADH. 

Return natucal exponential of 

number (@ number) 

Raises number to specified power 


Return truncated valua. All 


nthe ccmputsr must repeat from thea 
fiess number to the Last number 
ycu specify. Use st¢p to specify 
hew much +o increment the number 


each time through the loop. If 





GET 


GOSUB 


GO TO 


Ho XS 


ir/THEN 


INKEY$ 


mie UT 


INPUT#-1 


mS TR 


you omit STEP one is used. 

Read the graphic contents of a 
ractangle into an array for 

future us2 by PUT. 

Sends the computer to subroutine 
beginning at specified line number. 
Sends the scomputer to the specified 
line number. 

Cempute hexadecimal value 

Test the relationship. If it is 
true, the computer execute the 

Pie muetLTOn following THEN. 

Stroke the xeyboard and returns 

the key being pressed. 

Cause the computer to stop and 
await input from the keyboard 
Input data from cassette 


Scaemch for tune first occurance 


INSTRS(5,X2,Y3) 


oN T 


JOYSTK 


Om@mestrang Y> aan String x5 and 

Teewens the position at which 

the match is found. 

Cenvert 2 number +o a2 integer. 

Returns the horizontal or vertical 

Cleemen rae comorrmtnewmert Or fight jovstick: 
Q@emliezazontal, left joystick 

= Vertical, Eight joystick 
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LINE 


LOG 
MEM 


MIDS 


MIDS 


MOTOR 


2 


Moz Zoncdiprlgnt joystick 

3 =mvertical , leit joystick 

Reownn the Lett potion Of the string. 
Retuns the number of tharacter in a string. 
Assign valus to variable 
Lists specified lines or entire 
progeal on tne screen LIST S0=100 
Draw a line from the start point 
tewema pOanc If Start point is 
omited, (128,96) or the last end 
peint is used. PSET selects 
mere g=rOund COLOr and PRESET 
Sekeee DackgrEeuna Colae. ,3B 
d@aws a box with start and end points 
as the corners (instead of a line). ,BF 
Weert tl) 25 the box. 

Input line from keyboard. 


Seurns Nastral Logativhmo. 


a 


tz] 


inds amount of free memory. 


rd 


eturns a substring if another 


2 aL lols Fae 


ity 
}-- 
(iD 
-) 
OQ 
qt 
= as 
O 
Tw; 
(ct 
i 
O 
em | 
t+ 
#7) 


( 


omitted, the entire string right 
GamepesretOnN 2S recuraed. 
Replaces a portion of one string 
Women anoths © string. 


TUENnS casset+2 ON or OFF. 


Se 





NEW 


ON. - .GOSUB 


ON ...GOTO 


OPEN 


PAINT 


PC LEAR 


EGLS 


Eeuoy 


PLAY 


PMCDE 


BOINT 


Erases everything in memory. 

Vite way ea ranch to specified subroutines. 
Multi-way branch to specified lines. 

Open file(f) at Screen or 

Keyboard (0) , Cassett2(-1), 


Erinter(~2) for input(I) or (0). 


Faints graphic screen starting 


areepioante(X,Y) wath speciiized 

color. Stops at border of specified color. 
Reserves n number of graphic memory pages. 
Clears scr2en with specified 

Comoros SOlMer COdSois onitied: 

current background color is used. 

Copies graphic from source to 


destination page. 


memory location you specified. 
Flays music of specified note 
(A-G or 1-12)octave()), volume 
(V) note Langth(L), ct2mpo(Tt), 
pause (P), and allows execution 
©f substrings. Also sharps(# or 
ew Lilacs (=). 

Selects resolution and nemory 
raqgentO start On. 

fests whether specified graphics 
Somers on Or eo. =], (1052 Z0ntal) 
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POKE 


20S 


PEOINT 


PRESET 


PreinT 


PRINT#-1 


Pan te 2 


Pont TAS 


Pain T USING 


=0-31. The value returned is -1 
meme CelLlelS 12 the character 
igiiem mit "Lltels Off, OF the color 
Goge af Lt.2s on. 

FucS values into specified 
memory location. 

KEL UGNSMCULCTeENt CUrSoS position. 
fests whether specified graphics 
cell is on ot off and returns 
6GL0z Code of specified cell. 
Sets to background color. 


Prints specified message on the Scréen. 


ares data £O Cassette. 


t de 


ESLNts ah 2ten cr list of itens 


(Dp 


ence ill a ter. 
Moves the cursor t9 specified 


column position and prints. 


i 
J 


Papen eS fumbers in Specified fornat. 


%# Formats numbers. 


ep Ceamia k DOL ts 


, Displays comma ts Left 
St Sv2ey tiara codrac cr. 
**x Fills leading spaces 
With 2sterisks. 


$ Places $ ahead. 


Shak 





ea NT a 


Pol 


- Slo petid 


Soeracdeing agolLlar Sign. 


eee Floa2cing dollar sign 


+ In first position, causes sign to be 
printed. In last position, causes 
Sign #o be brinted after the number 
BXPpoOn> tial fomaa. 

- Minus sign after negative numbers. 


Returns first string charater. 


%Zspaces% Steen toed 1d - eng <hesot 


field is nember of spaces plus 2. 
Erints specified message at 
EpeciclLC Screen Location. 


ed 


j4> 


Set specified point to specif 


~* 


{+e 


FC is omited, foreground color is used. 
Stores ge2pnies £rom an array V,PSET 
SiO The sGreon. (AclLay sactzangls< 

Size muS= match GET tectangle size.) 

Read the aext item in DATA lineREAD As and 
asSign it t0 specified READ C,3 variadle. 
Aliow insertion of comment in 

crogream line. Everything after 

REM is ignored by Computer. 

Aliows program line cenumbering. 

Erases dot SET at specified location. 


Sams tne CONputer’'s poOlntsr 


a 





RETURN 


RIGHTS 


RN D 


ss T 


SGN 


Ene y 


SOUND 


oa OP 


Sra itNGs 


idem tOwrLe st stem on the line. 
Returns the computer from subroutine 
tomche BASLCword following 
Femurns Fight potion .of string. 
neturns a pseudo -random integer 
retween one and specified number 
which must be greater than one. 
Executes the progran. 
Seiects ether graphics or text 
screen and color set 
Seuceandot atwspecifiedsrext 
screen location to specified color. 
Returns sign of specified numeric 
expression: 

-1 for argument 1s negative 

0 if argument is 0 


+13 a 


ry 


gu me 


3 


t is positive 

Saup c2lLe £60 €nd Of Hex=t DEOgGram on 
Cassette t2pe, of to end of 
specified program. 

Returns sine of angl2= measured in tadians. 
Sounds specified tone for 

specified jiuration. 

Stops execution of program. 

pemuliins a Strind Of Sharacters 

(Of specified léngth) which are 
Wietoales=4 by ASCII soce oF the 


223 





Shears 
SQ R 


TAN 


Pie 


TROFF 
TRON 
US ERn 
VAL 


VARPTR 


Peasteecnaba cose Of the string. 

Convert a numeric expression to a string. 
Returns the square root of number. 
Returns tangent of angle measured 

in radians. 

Returns contents or allows setting 

c— timer (0-65535) 

Turns off program tracer. 

hiss ot program tracer. 

Calls user's machine language subroutine. 
Converts a string to number. 

Returns “pointer"™ address for 


the specified variable. 
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